home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / wait.ph < prev   
Encoding:
Text File  |  1991-11-11  |  1.4 KB  |  63 lines
  1. if (!defined &_WAIT) {
  2.     eval 'sub _WAIT {1;}';
  3. #
  4. # changed 11/4/91 by voelker from "require 'machine/machparam.ph'"
  5. #
  6.     require '/sprite/lib/perl/machparam.ph';    
  7.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN) {
  8.     }
  9.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  10.     }
  11.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN) {
  12.     }
  13.     else {
  14.     }
  15. #
  16. # changed 11/10/91 by voelker
  17. #
  18. #    eval 'sub w_termsig { &w_T. &w_Termsig;}';
  19. #    eval 'sub w_coredump { &w_T. &w_Coredump;}';
  20. #    eval 'sub w_retcode { &w_T. &w_Retcode;}';
  21. #    eval 'sub w_stopval { &w_S. &w_Stopval;}';
  22. #    eval 'sub w_stopsig { &w_S. &w_Stopsig;}';
  23.     eval 'sub w_termsig { 
  24.     local ($x) = @_;
  25.     $x & 0x7F;
  26.     }';
  27.     eval 'sub w_coredump {
  28.     local ($x) = @_;
  29.     ($x & 0x80) >> 7;
  30.     }';
  31.     eval 'sub w_retcode {
  32.     local ($x) = @_;
  33.     ($x & 0xFF00) >> 8;
  34.     }';
  35.     eval 'sub w_stopval {
  36.     local ($x) = @_;
  37.     ($x & 0xFF0000) >> 16;
  38.     }';
  39.     eval 'sub w_stopsig {
  40.     local ($x) = @_;
  41.     ($x & 0xFF000000) >> 24;
  42.     }';
  43.     eval 'sub WSTOPPED {0177;}';
  44.     eval 'sub WNOHANG {1;}';
  45.     eval 'sub WUNTRACED {2;}';
  46.     eval 'sub WIFSTOPPED {
  47.         local($x) = @_;
  48.         eval "(&w_stopval($x) ==  &WSTOPPED)";
  49.     }';
  50.     eval 'sub WIFSIGNALED {
  51.         local($x) = @_;
  52.         eval "(&w_stopval($x) !=  &WSTOPPED && &w_termsig($x) != 0)";
  53.     }';
  54.     eval 'sub WIFEXITED {
  55.         local($x) = @_;
  56.         eval "(&w_stopval($x) !=  &WSTOPPED && &w_termsig($x) == 0)";
  57.     }';
  58. }
  59. 1;
  60.  
  61.  
  62.  
  63.